BBS in a Box 7

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / A-An / *HyCard.XCMD.cpt / *HyCard.XCMD / HyperXCmd.p < prev next >
MacBinary | 1987-08-26 | 2.1 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: HyperXCmd.p
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Aug 26 13:57:55 1987, modified Wed Aug 26 13:57:55 1987, creator 'MPS ', type ASCII, 1553 bytes "HyperXCmd.p" , at 0x691 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 48 79 70 65 72 58 | 43 6d 64 2e 70 00 00 00 |..HyperX|Cmd.p...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 06 11 00 | 00 01 7e 9d 58 d2 23 9d |........|..~.X.#.|
|00000060| 58 d2 23 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |X.#.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4f 9a 00 00 |........|....O...|
|00000080| 55 4e 49 54 20 48 79 70 | 65 72 58 43 6d 64 3b 0d |UNIT Hyp|erXCmd;.|
|00000090| 0d 7b 09 48 79 70 65 72 | 58 43 6d 64 2e 70 20 20 |.{.Hyper|XCmd.p  |
|000000a0| 44 65 66 69 6e 69 74 69 | 6f 6e 20 66 69 6c 65 20 |Definiti|on file |
|000000b0| 66 6f 72 20 48 79 70 65 | 72 43 61 72 64 20 58 43 |for Hype|rCard XC|
|000000c0| 4d 44 73 20 61 6e 64 20 | 58 46 4e 43 73 20 69 6e |MDs and |XFNCs in|
|000000d0| 20 50 61 73 63 61 6c 2e | 0d 09 42 79 20 44 61 6e | Pascal.|..By Dan|
|000000e0| 20 57 69 6e 6b 6c 65 72 | 2e 20 20 44 4f 20 4e 4f | Winkler|.  DO NO|
|000000f0| 54 20 63 61 6c 6c 20 74 | 68 65 20 61 75 74 68 6f |T call t|he autho|
|00000100| 72 21 20 20 43 6f 6e 74 | 61 63 74 20 41 70 70 6c |r!  Cont|act Appl|
|00000110| 65 20 44 65 76 65 6c 6f | 70 65 72 20 0d 09 53 75 |e Develo|per ..Su|
|00000120| 70 70 6f 72 74 20 6f 6e | 20 41 70 70 6c 65 4c 69 |pport on| AppleLi|
|00000130| 6e 6b 20 22 4d 61 63 44 | 73 74 22 20 6f 72 20 6f |nk "MacD|st" or o|
|00000140| 6e 20 4d 43 49 20 22 4d | 61 63 54 65 63 68 22 2e |n MCI "M|acTech".|
|00000150| 0d 0d 09 a9 41 70 70 6c | 65 20 43 6f 6d 70 75 74 |....Appl|e Comput|
|00000160| 65 72 2c 20 49 6e 63 2e | 20 31 39 38 37 0d 09 41 |er, Inc.| 1987..A|
|00000170| 6c 6c 20 52 69 67 68 74 | 73 20 52 65 73 65 72 76 |ll Right|s Reserv|
|00000180| 65 64 2e 0d 7d 0d 0d 49 | 4e 54 45 52 46 41 43 45 |ed..}..I|NTERFACE|
|00000190| 0d 0d 43 4f 4e 53 54 0d | 20 20 0d 20 20 7b 20 72 |..CONST.|  .  { r|
|000001a0| 65 73 75 6c 74 20 63 6f | 64 65 73 20 7d 0d 20 20 |esult co|des }.  |
|000001b0| 78 72 65 73 53 75 63 63 | 20 09 3d 20 30 3b 0d 20 |xresSucc| .= 0;. |
|000001c0| 20 78 72 65 73 46 61 69 | 6c 20 09 3d 20 31 3b 0d | xresFai|l .= 1;.|
|000001d0| 20 20 78 72 65 73 4e 6f | 74 49 6d 70 20 09 3d 20 |  xresNo|tImp .= |
|000001e0| 32 3b 0d 20 20 0d 20 20 | 7b 20 72 65 71 75 65 73 |2;.  .  |{ reques|
|000001f0| 74 20 63 6f 64 65 73 20 | 7d 0d 20 20 78 72 65 71 |t codes |}.  xreq|
|00000200| 53 65 6e 64 43 61 72 64 | 4d 65 73 73 61 67 65 09 |SendCard|Message.|
|00000210| 3d 20 31 3b 0d 20 20 78 | 72 65 71 45 76 61 6c 45 |= 1;.  x|reqEvalE|
|00000220| 78 70 72 09 09 3d 20 32 | 3b 0d 20 20 78 72 65 71 |xpr..= 2|;.  xreq|
|00000230| 53 74 72 69 6e 67 4c 65 | 6e 67 74 68 09 3d 20 33 |StringLe|ngth.= 3|
|00000240| 3b 0d 20 20 78 72 65 71 | 53 74 72 69 6e 67 4d 61 |;.  xreq|StringMa|
|00000250| 74 63 68 09 3d 20 34 3b | 0d 20 20 78 72 65 71 53 |tch.= 4;|.  xreqS|
|00000260| 65 6e 64 48 43 4d 65 73 | 73 61 67 65 09 3d 20 35 |endHCMes|sage.= 5|
|00000270| 3b 0d 20 20 78 72 65 71 | 5a 65 72 6f 42 79 74 65 |;.  xreq|ZeroByte|
|00000280| 73 20 20 20 20 20 20 20 | 20 20 3d 20 36 3b 0d 20 |s       |  = 6;. |
|00000290| 20 78 72 65 71 50 61 73 | 54 6f 5a 65 72 6f 09 09 | xreqPas|ToZero..|
|000002a0| 3d 20 37 3b 0d 20 20 78 | 72 65 71 5a 65 72 6f 54 |= 7;.  x|reqZeroT|
|000002b0| 6f 50 61 73 09 09 3d 20 | 38 3b 0d 20 20 78 72 65 |oPas..= |8;.  xre|
|000002c0| 71 53 74 72 54 6f 4c 6f | 6e 67 09 09 3d 20 39 3b |qStrToLo|ng..= 9;|
|000002d0| 0d 20 20 78 72 65 71 53 | 74 72 54 6f 4e 75 6d 09 |.  xreqS|trToNum.|
|000002e0| 09 3d 20 31 30 3b 0d 20 | 20 78 72 65 71 53 74 72 |.= 10;. | xreqStr|
|000002f0| 54 6f 42 6f 6f 6c 09 09 | 3d 20 31 31 3b 0d 20 20 |ToBool..|= 11;.  |
|00000300| 78 72 65 71 53 74 72 54 | 6f 45 78 74 09 09 3d 20 |xreqStrT|oExt..= |
|00000310| 31 32 3b 0d 20 20 78 72 | 65 71 4c 6f 6e 67 54 6f |12;.  xr|eqLongTo|
|00000320| 53 74 72 09 09 3d 20 31 | 33 3b 0d 20 20 78 72 65 |Str..= 1|3;.  xre|
|00000330| 71 4e 75 6d 54 6f 53 74 | 72 09 09 3d 20 31 34 3b |qNumToSt|r..= 14;|
|00000340| 0d 20 20 78 72 65 71 4e | 75 6d 54 6f 48 65 78 09 |.  xreqN|umToHex.|
|00000350| 09 3d 20 31 35 3b 0d 20 | 20 78 72 65 71 42 6f 6f |.= 15;. | xreqBoo|
|00000360| 6c 54 6f 53 74 72 09 09 | 3d 20 31 36 3b 0d 20 20 |lToStr..|= 16;.  |
|00000370| 78 72 65 71 45 78 74 54 | 6f 53 74 72 09 09 3d 20 |xreqExtT|oStr..= |
|00000380| 31 37 3b 0d 20 20 78 72 | 65 71 47 65 74 47 6c 6f |17;.  xr|eqGetGlo|
|00000390| 62 61 6c 09 09 3d 20 31 | 38 3b 0d 20 20 78 72 65 |bal..= 1|8;.  xre|
|000003a0| 71 53 65 74 47 6c 6f 62 | 61 6c 09 09 3d 20 31 39 |qSetGlob|al..= 19|
|000003b0| 3b 0d 20 20 78 72 65 71 | 47 65 74 46 69 65 6c 64 |;.  xreq|GetField|
|000003c0| 42 79 4e 61 6d 65 09 3d | 20 32 30 3b 0d 20 20 78 |ByName.=| 20;.  x|
|000003d0| 72 65 71 47 65 74 46 69 | 65 6c 64 42 79 4e 75 6d |reqGetFi|eldByNum|
|000003e0| 09 3d 20 32 31 3b 0d 20 | 20 78 72 65 71 47 65 74 |.= 21;. | xreqGet|
|000003f0| 46 69 65 6c 64 42 79 49 | 44 09 3d 20 32 32 3b 0d |FieldByI|D.= 22;.|
|00000400| 20 20 78 72 65 71 53 65 | 74 46 69 65 6c 64 42 79 |  xreqSe|tFieldBy|
|00000410| 4e 61 6d 65 09 3d 20 32 | 33 3b 0d 20 20 78 72 65 |Name.= 2|3;.  xre|
|00000420| 71 53 65 74 46 69 65 6c | 64 42 79 4e 75 6d 09 3d |qSetFiel|dByNum.=|
|00000430| 20 32 34 3b 0d 20 20 78 | 72 65 71 53 65 74 46 69 | 24;.  x|reqSetFi|
|00000440| 65 6c 64 42 79 49 44 09 | 3d 20 32 35 3b 0d 20 20 |eldByID.|= 25;.  |
|00000450| 78 72 65 71 53 74 72 69 | 6e 67 45 71 75 61 6c 20 |xreqStri|ngEqual |
|00000460| 20 20 20 20 20 20 3d 20 | 32 36 3b 0d 20 20 78 72 |      = |26;.  xr|
|00000470| 65 71 52 65 74 75 72 6e | 54 6f 50 61 73 20 20 20 |eqReturn|ToPas   |
|00000480| 20 20 20 20 3d 20 32 37 | 3b 0d 20 20 78 72 65 71 |    = 27|;.  xreq|
|00000490| 53 63 61 6e 54 6f 52 65 | 74 75 72 6e 20 20 20 20 |ScanToRe|turn    |
|000004a0| 20 20 3d 20 32 38 3b 0d | 20 20 78 72 65 71 53 63 |  = 28;.|  xreqSc|
|000004b0| 61 6e 54 6f 5a 65 72 6f | 20 20 20 20 20 20 20 20 |anToZero|        |
|000004c0| 3d 20 33 39 3b 09 7b 20 | 77 61 73 20 73 75 70 70 |= 39;.{ |was supp|
|000004d0| 6f 73 65 20 74 6f 20 62 | 65 20 32 39 2e 20 20 4f |ose to b|e 29.  O|
|000004e0| 6f 70 73 21 20 7d 0d 0d | 54 59 50 45 0d 0d 20 20 |ops! }..|TYPE..  |
|000004f0| 58 43 6d 64 50 74 72 20 | 3d 20 5e 58 43 6d 64 42 |XCmdPtr |= ^XCmdB|
|00000500| 6c 6f 63 6b 3b 0d 20 20 | 58 43 6d 64 42 6c 6f 63 |lock;.  |XCmdBloc|
|00000510| 6b 20 3d 0d 20 20 20 20 | 52 45 43 4f 52 44 0d 20 |k =.    |RECORD. |
|00000520| 20 20 20 20 20 70 61 72 | 61 6d 43 6f 75 6e 74 3a |     par|amCount:|
|00000530| 20 20 49 4e 54 45 47 45 | 52 3b 20 20 20 20 20 0d |  INTEGE|R;     .|
|00000540| 20 20 20 20 20 20 70 61 | 72 61 6d 73 3a 20 20 20 |      pa|rams:   |
|00000550| 20 20 20 41 52 52 41 59 | 5b 31 2e 2e 31 36 5d 20 |   ARRAY|[1..16] |
|00000560| 4f 46 20 48 61 6e 64 6c | 65 3b 0d 20 20 20 20 20 |OF Handl|e;.     |
|00000570| 20 72 65 74 75 72 6e 56 | 61 6c 75 65 3a 20 48 61 | returnV|alue: Ha|
|00000580| 6e 64 6c 65 3b 20 20 20 | 20 20 20 0d 20 20 20 20 |ndle;   |   .    |
|00000590| 20 20 70 61 73 73 46 6c | 61 67 3a 20 20 20 20 42 |  passFl|ag:    B|
|000005a0| 4f 4f 4c 45 41 4e 3b 20 | 0d 20 20 20 20 20 20 0d |OOLEAN; |.      .|
|000005b0| 20 20 20 20 20 20 65 6e | 74 72 79 50 6f 69 6e 74 |      en|tryPoint|
|000005c0| 3a 20 20 50 72 6f 63 50 | 74 72 3b 20 20 20 20 7b |:  ProcP|tr;    {|
|000005d0| 20 74 6f 20 63 61 6c 6c | 20 62 61 63 6b 20 74 6f | to call| back to|
|000005e0| 20 48 79 70 65 72 43 61 | 72 64 20 7d 0d 20 20 20 | HyperCa|rd }.   |
|000005f0| 20 20 20 72 65 71 75 65 | 73 74 3a 20 20 20 20 20 |   reque|st:     |
|00000600| 49 4e 54 45 47 45 52 3b | 20 20 0d 20 20 20 20 20 |INTEGER;|  .     |
|00000610| 20 72 65 73 75 6c 74 3a | 20 20 20 20 20 20 49 4e | result:|      IN|
|00000620| 54 45 47 45 52 3b 20 20 | 0d 20 20 20 20 20 20 69 |TEGER;  |.      i|
|00000630| 6e 41 72 67 73 3a 20 20 | 20 20 20 20 41 52 52 41 |nArgs:  |    ARRA|
|00000640| 59 5b 31 2e 2e 38 5d 20 | 4f 46 20 4c 6f 6e 67 49 |Y[1..8] |OF LongI|
|00000650| 6e 74 3b 0d 20 20 20 20 | 20 20 6f 75 74 41 72 67 |nt;.    |  outArg|
|00000660| 73 3a 20 20 20 20 20 41 | 52 52 41 59 5b 31 2e 2e |s:     A|RRAY[1..|
|00000670| 34 5d 20 4f 46 20 4c 6f | 6e 67 49 6e 74 3b 0d 20 |4] OF Lo|ngInt;. |
|00000680| 20 20 20 45 4e 44 3b 0d | 20 20 20 20 0d 45 4e 44 |   END;.|    .END|
|00000690| 3b 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |;.......|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000710| 00 80 63 0a 20 54 41 e8 | 00 80 61 52 60 06 48 6e |..c. TA.|..aR`.Hn|
|00000720| ff ee a8 a4 4a 06 67 00 | fe a8 48 6e ff e6 a8 a4 |....J.g.|..Hn....|
|00000730| 1a 31 2e 20 44 44 45 78 | 70 61 6e 64 45 78 70 61 |.1. DDEx|pandExpa|
|00000740| 6e 64 54 65 6d 70 46 69 | 6c 65 20 78 02 00 00 00 |ndTempFi|le x....|
|00000750| 00 00 44 44 54 4d 44 44 | 41 50 01 00 00 00 00 00 |..DDTMDD|AP......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 a5 f3 e9 11 00 00 | 06 11 00 00 01 7e 48 6e |........|.....~Hn|
|00000780| ff de 48 6e ff ee 3f 3c | 00 02 42 a7 a8 ec 4e 75 |..Hn..?<|..B...Nu|
|00000790| 00 00 00 aa 60 0a 00 00 | 4c 44 45 46 00 00 00 00 |....`...|LDEF....|
|000007a0| 4e 56 00 00 48 e7 1f 38 | 28 6e 00 08 26 54 30 2e |NV..H..8|(n..&T0.|
|000007b0| 00 1a 53 40 67 2e 53 40 | 67 22 6a 12 51 4f 2f 0f |..S@g.S@|g"j.QO/.|
|000007c0| a8 8b 37 57 00 0c 37 7c | 00 04 00 0e 50 4f 4c df |..7W..7||....POL.|
|000007d0| 1c f8 4e 5e 20 5f de fc | 00 14 4e d0 2f 2e 00 14 |..N^ _..|..N./...|
|000007e0| a8 a4 60 ea 28 6e 00 14 | 2f 14 2f 2b 00 0c 48 6f |..`.(n..|/./+..Ho|
|000007f0| 00 04 a8 7e a8 93 a8 9e | 24 6b 00 50 20 4a 4a 78 |...~....|$k.P JJx|
|00000800| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 74 6f 20 |...H..Mo|naco.to |
|00000810| 61 20 36 34 20 62 79 74 | 65 20 62 6c 6f 63 6b 2e |a 64 byt|e block.|
|00000820| 20 20 54 68 65 20 00 06 | 00 08 00 28 00 28 01 53 |  The ..|...(.(.S|
|00000830| 01 fd 00 28 00 28 01 53 | 01 fd 9d 58 99 e3 00 00 |...(.(.S|...X....|
|00000840| 01 f1 00 00 01 f1 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000850| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 01 9f 14 |...L...L|...2....|
|00000860| 03 50 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.P.....2|..MPSR..|
|00000870| 00 0a 03 ed ff ff 00 00 | 00 00 00 02 9f bc 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+